home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / yase.arc / CRT.ASM < prev    next >
Assembly Source File  |  1986-12-13  |  3KB  |  96 lines
  1. ******************************************************************
  2. * COPYRIGHT (C) 1986 by Donald Krantz and James Stanley
  3. * - Note: This is a real, live, actual, registered copyright,
  4. *   and should be treated as such. This source code is from
  5. *   the book "68000 Assembly Language", Krantz and Stanley,
  6. *   Addison-Wesley Publishing Company, Reading, MA, 1986.
  7. * 
  8. *   Permission granted by the authors for non-commercial use
  9. *   in programs released to the public domain, as long as this
  10. *   copyright notice remains attached and visible.
  11. *
  12. ****************************************************************
  13. * CRT INTERFACE Routines - PRO68, CP/M68K, BIOS Rev 1.8,
  14. * hosted on Leading Edge PC / PRO-68
  15. * Count on all calls trashing D0. 
  16. *
  17. * _CRT_CURSOR
  18. * This function sets the host cursor to an (X,Y) position. 
  19. * Calling sequence: Push Y offset, then X offset, then call.
  20. * X and Y are binary numbers, offset zero, word length. 
  21. *
  22. * _CRT_CLS
  23. * This function clears the host crt screen. No parameters.
  24. *
  25. * _CRT_PUT
  26. * This function dumps the next character typed directly to the
  27. * CRT. Calling sequence: Push the character as the low byte of
  28. * a word, then call.
  29. *
  30. * _CRT_GET
  31. * This function returns the next character typed at the console,
  32. * without echo. Character is in low byte of D0.W
  33. *
  34. * _KEYHIT
  35. * This function returns non-zero in D0.W if a character is 
  36. * waiting for input from the console.
  37. *
  38. *****************************************************************
  39.  
  40.     xdef    _crt_cls,_crt_cursor,_crt_put,_getkey,_keyhit
  41.  
  42. _crt_cls:
  43.     move.w    d1,-(a7)    * Save caller's D1
  44.     move.w    #$0006,d0    * CP/M Direct I/O call
  45.     move.w    #$001A,d1    * Clear Screen
  46.     trap    #2        * Call CP/M
  47.     move.w    (a7)+,d1    * Restore caller's D1
  48.     rts
  49. *****************************************************************
  50. _crt_cursor:
  51.     move.l    d1,-(a7)    * Save caller's D1
  52.     move.w    #$0006,d0    * CP/M Direct I/O call
  53.     move.w    #$001B,d1    * ESCape
  54.     trap    #2        * Call CP/M
  55.     move.w    #$0006,d0    * CP/M Direct I/O call
  56.     move.w    #$003D,d1    * Set Cursor
  57.     trap    #2        * Call CP/M
  58.     move.w    #$0006,d0    * CP/M Direct I/O call
  59.     move.b    11(a7),d1    * Row Address 
  60.     ext.w    d1        * sign extend
  61.     add.w    #$20,d1        * offset by 32
  62.     trap    #2        * Call CP/M
  63.     move.w    #$0006,d0    * CP/M Direct I/O call
  64.     move.b    9(a7),d1    * Column Address 
  65.     ext.w    d1        * sign extend
  66.     add.w    #$20,d1        * offset by 32
  67.     trap    #2        * Call CP/M
  68.     move.l    (a7)+,d1    * Restore caller's D1 
  69.     rts
  70. *****************************************************************
  71. _crt_put:
  72.     move.l    d1,-(a7)    * Save caller's D1
  73.     move.w    #$0006,d0    * CP/M direct I/O call
  74.     move.w    8(a7),d1    * character to output
  75.     trap    #2        * Call CP/M
  76.     move.l    (a7)+,d1    * Restore caller's D1
  77.     rts
  78. *****************************************************************
  79. _getkey:
  80.     move.w    d1,-(a7)    * Save caller's D1
  81.     move.w    #$0006,d0    * CP/M direct I/O call
  82.     move.w    #$00FF,d1    * Console input flag
  83.     trap    #2        * Call CP/M
  84.     move.w    (a7)+,d1    * Restore caller's D1
  85.     rts
  86. *****************************************************************
  87. _keyhit:
  88.     move.w    d1,-(a7)    * Save caller's D1
  89.     move.w    #$0006,d0    * CP/M direct I/O call
  90.     move.w    #$00FE,d1    * Console status flag
  91.     trap    #2        * Call CP/M
  92.     move.w    (a7)+,d1    * Restore caller's D1
  93.     rts
  94.  
  95.     end
  96.